%
O9855(REN*CALIBRATION)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
M98P9750
IF[#143EQ0]GOTO1111
(SAVE INPUTS FOR BACKWARD COMPATIBILITY)
#29=#21
#31=#22
#21=#0
#22=#0
(SWAP INPUTS FOR BACKWARD COMPATIBILITY)
#8=#29
#9=#31
(CLEAR VARIABLES)
#29=#0
#31=#0
N1111
#27=#8
#28=#9
#9=#0
G65P9890A9855.(USER*START)
M5
M19
IF[#7EQ#0]GOTO1
#25=#7
#24=#7/2
N1
#149=60
IF[#18EQ#0]GOTO42
IF[#25EQ#0]GOTO42
IF[#24EQ#0]GOTO42
#24=#24*2
IF[#20NE#0]GOTO1114
#20=#4120
N1114
#149=70
IF[#20LE0]GOTO42
#19=4.
IF[#18GT0]GOTO1115
#19=3.
N1115
#18=ABS[#18/2]
IF[#126EQ1]GOTO1117
#149=90
IF[#3EQ#0]GOTO42
IF[#4NE#0]GOTO1116
#4=2.*#129
N1116
IF[#6NE#0]GOTO1117
#6=5.*#129
N1117
#10=ABS[#4]
#11=ABS[#6]
IF[#26NE#0]GOTO2
#26=5*#129
N2
IF[#17NE#0]GOTO3
#17=#117
N3
#1=2.
M98P9751
#6=#116
#4=#[5040+#121]
#5=#[5040+#122]
#8=#[5040+#123]-#116*#100
#137=#4
#135=#5
#[#120+2]=[#135+#25/2]/#129+#15
#[#120+3]=[#135-#25/2]/#129+#15
#[#120+4]=[#137+#24/2]/#129+#16
#[#120+5]=[#137-#24/2]/#129+#16
G65P9754X[#4+#27]Y[#5+#28]F[2000*#129]
G65P9752A#123Q#17T[#8-[[10.*#129]*#100]]M10.
#20=#131
G53(*)
#[#120]=#131+#14-[#136*#100]
#[#120]=#[#120]/#129
G65P9754X#4Y#5F[2000*#129]
M#19S800
IF[#114EQ0]GOTO6
#1=#135+[[#25/2]+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135+[[#25/2]+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#21=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#5=#21-[#18+[#25/2]]*[#114/ABS[#114]]
IF[#114NE2]GOTO5
#1=#135-[#25/2]-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135-[#25/2]-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=#131
#21=[#21+#12]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#5=#21
N5
G65P9753A#122T#5F#127W1.
N6
IF[#113EQ0]GOTO8
#1=#137+[[#24/2]+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137+[[#24/2]+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#4=#21-[#18+[#24/2]]*[#113/ABS[#113]]
IF[#113NE2]GOTO7
#1=#137-[#24/2]-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137-[#24/2]-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=#131
#21=[#21+#12]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#4=#21
N7
G65P9753A#121T#4F#127W1.
N8
#135=#5
#137=#4
(-->SPINNING CAL ONLY START)
IF[#114EQ0]GOTO11
IF[#114EQ-1]GOTO9
#1=#135+[#25/2]+#125+#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135+[#25/2]+#18
G65P9752A#122T#1M10.F#9Q#17S1.
#21=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#[#120+2]=[#21-#18+#15]/#129
#[#120+3]=#[#120+2]-#25/#129
IF[#114EQ1]GOTO10
N9
#1=#135-[#25/2]-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135-[#25/2]-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#[#120+3]=[#12+#18+#15]/#129
IF[#114EQ2]GOTO10
#[#120+2]=#[#120+3]+#25/#129
N10
#135=[#[#120+2]+#[#120+3]]/2
#135=#135*#129-#15
G65P9753A#122T#135F#127W1.
N11
IF[#113EQ0]GOTO14
IF[#113EQ-1]GOTO12
#1=#137+[#24/2]+#125+#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137+[#24/2]+#18
G65P9752A#121T#1M10.F#9Q#17S1.
#21=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#[#120+4]=[#21-#18+#16]/#129
#[#120+5]=#[#120+4]-#24/#129
IF[#113EQ1]GOTO13
N12
#1=#137-[#24/2]-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137-[#24/2]-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#[#120+5]=[#12+#18+#16]/#129
IF[#113EQ2]GOTO13
#[#120+4]=#[#120+5]+#24/#129
N13
#137=[#[#120+4]+#[#120+5]]/2
#137=#137*#129-#16
G65P9753A#121T#137F#127W1.
N14
(<--SPINNING CAL END)
G65P9754X[#137+#27]Y[#135+#28]F[2000*#129]
#1=#140
#140=#[#120+7]*#129
G65P9752A#123Q#17T#20M10.
#20=#131
#140=#1
G53(*)
#[#120]=#131+#14-[#136*#100]
#[#120]=#[#120]/#129
#[#120+1]=#[#120]-[[#3*#100]/#129]
M#19S800
G65P9753A#123T[#20+[[#[#120+7]*#129]*#100]]F#127W1.
G53(*)
G65P9752A#123Q#17T#20M20.S1.
G53(*)
#[#120+6]=[#131-#20]/#129
G65P9754X#137Y#135F[2000*#129]
IF[#126EQ1]GOTO25
IF[#113NE0]GOTO19
IF[#114NE0]GOTO19
GOTO25
N19
IF[#23EQ#0]GOTO25
M5
#133=[ABS[#[#120+4]-#[#120+5]]]/2
#133=#133*#129
#134=[ABS[#[#120+2]-#[#120+3]]]/2
#134=#134*#129
IF[#113EQ0]GOTO20
#21=#140
#140=#11
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#3+#140+#23]*#100]F#127W1.
#1=#137+[#133+#18-#10]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9752A#123Q#17T[#20-[[#3+#23]*#100]]M10.
#[#120+1]=#131+#14+[#23-#136]*#100(PARA*5006/6019)
#[#120+1]=#[#120+1]/#129
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20+[#21*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
GOTO25
N20
#21=#140
#140=#11
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#3+#140+#23]*#100]F#127W1.
#1=#135+[#134+#18-#10]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9752A#123Q#17T[#20-[[#3+#23]*#100]]M10.
#[#120+1]=#131+#14+[#23-#136]*#100(PARA*5006/6019)
#[#120+1]=#[#120+1]/#129
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20+[#21*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
N25
M5
GOTO44
N42
M98P9759
N44
#149=#0
G65P9891A9855.(USER*END)
M99
%